VOLUME 4 





AUTO-DIAL ING 

WITH Tts 2068 

AND A PIODEFI 
by John Hancock 


Mow that sere ef es have sodeas. sore of us are looking 
for wavs te mate ese cf thea. Aseng other things. 2050's 
are goed shepe gialers. They can dial a umber tvped 
directiv om the computer tevbdcard or use a nuaber stored 


in sesery. This cap al) be done with a simple BASIS: 


progr aa. 


The first BASIC asto-dial routine I know of was one 


offered te the public on a CompuServe S16 20 July, 1984 
by Sandy Kale (72376.1122!. Here is Randy’s prograa: 

10 IMPHT AS BO QUT 119,E 

13 GT 119,31 90 PAUSE 3,5 

20 FOR I=1 TO LEN AS 100 NEXT E 

3@ LET A-VAL AS(I) 110 OUT {19,1 

32 IF A=@ THEM LET A=10 120 OUT 119,2 

33 OMEE TS 130 NEXT D 

46 GO Sem 40 140 RETURN 

36 NEXT ! 150 PRINT "FINISHED" 

<5 68 TO 150 160 PAUSE 0 

60 FOR B=1 10 A 170 QUT 119.0 

70 FOR E=3 TO 4 


If you choese to try this prograa, you say wish te 
experigent with the PAUSEs in lines 35 and 9¢. On ost 
Phone systees, these can be shortened to soeed uo 
dialing. Mote that the 3.5 in line 9 might as well be 4 
Since the 2068 automatically rounds PAUSE numbers to the 
nearest whole member. Although OUT 119,31 is supposed to 
initialize the phone for auto-dial, I have found that on 
ay systee. it is necessary to add a prior compand or else 
the first dialing fails (subsequent dialings are Ok. 
however). If you have this problem, add a line 12: 
OUT 119,34: QUT 119,0 

Note that the prograe waits for a key press at line 140 
and if you don’t hit a key, your phone will remain “off 
the hook". Line 170 “hangs up” the phone with OUT 1!19,0, 


Variations on Randy’s routine have been used in other 
prograas. Two that I know of are Dan Mowrey’s BREAKTHRU 
and ay TELEPHONE BOOK, both of which are in our group 
tape library. 
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P.O. 


SAFETY HARBOR, FL. 


Gentlemens: 


TAS BAM USERS” GROUP 


BOX 644 


SSS72 


I thought your readers might be interested in knowing that Tom 
Wood’s PRO/FILE program is now available for the Rotronics Wafa 


Drive. 


It includes most up-dates of the original program. 


With Tom’s blessings, Mr. George Fetherman of the Florida Tas 


Bam Users’ Group, 
provide the following: 


MENUS have been changed to allow more informe- 
ticn to be printed on then. 


SAVE & LOAD routines have been re-written to 
@lliow SAVING and LOADING to Watfadrive or to 
cassette. Saves and Loads dats files ONLY. 
AUTOSEARCH/SORT routine incorporates Tom’s new 
machine code. (See Issue @1 of Tom’s *Break- 
through") 

DEFP - Un-changed. 

NN - NEW NAME - as explained in Tom’s sanual. 


RST ~- RE-START -as explained in Torm’s aanual. 


7. 


. ON ERR - Simulated routine to help prevent 


Inc. has modified the PRO/FILE program to 


POUND SIGN - by entering this routine you 
toggle “ON* and “OFF” the BOLD characters sent 
to the 2040 printer. 


CAT - Entering this TOKEN allows cataloging of 
either drive. 


MOVE - Enables you to move files from one wafa 
to another. 


FORMAT —- Token permits formating either drive. 


WAFA TOKENS - Wild card commands peraitted. 


. IN — As a search command, permits loading of 


files saved in original foraat. 


deta ioss while in EDIT. (Same as Ton uses 


in his SPECTRUM PRO/FILE.?) 


Another nice feature of this PRO/FILE modification is the fact 


that there has been NO LOSS of DATA FILE space!!! 


It is very 


"USER FRIENDLY" and adds considerable flexibility to PRO/FILE. 
The documentation provided, when used with Tom Woods’ manual, 
makes it one of the best documented programs available. 


This program modification is available from Mr. 
at 5956 - 45th Ave. No., St. Petersburg, Fl. 33709, 


4278). 


George Fetherman 
(813-546- 


Cost is $10.00 for the NEW VERSION WAFA PLUS $1.00 S/H. 


If anyone purchasing this program does NOT already own the 
original program you should contact Tom Wood to purchase his 


manual. 


The documentation accompanying this version covers ONLY 


the CHANGES, not the finer points which make PRO/FILE one of 
the best, and best documented, programs available for T/S users. 


This information has been forwarded to you in the interest of 


your members and/or readers, as a service to them. 


I hope you 


will find it worthy of your publication. 


Respectfully, 


TAS BAM USERS’ 
Warren MM. 


GROUP, 
Reed. 
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IMELINE 


BINOMIAL BINGO 


Gertrude (Gertie)! Andersson 225 | 


I'm a new subscriber to TIMELINEZ and have already gotten my ten dollars' 
worth, particularly because Walt Gaby showed me a better way to program UDGs. 


I'm enclosing one of the programs I wrote on my TS1000 and then adapted to 
my 2068. One of these days I'll add COLOR and SOUND to it ~ as soon as I 
find a manitor. If you find it interesting, by all means use it. 
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IMELINE 


COOPERATIVE EFFORT 


PRODUCES SPECTACLILAR 


RLE GRAPHICS 


by 
Nore Lehfeldt 


No sooner had last aonth’s article describing RLE 
graphics decoding for the OL (TIMELINEZ, June, 1986) appeared 
in print than did John Ryan of Oklahowa City cose up with the 
core of the program presented here and upload it to 
CoapuServe. 

John very readily agreed to the publication of his 
prograa, but before it could be prepared for our printer, 
beorge Mockeridge got his hands on it and sade sone 
substantial isprovesents. 

Betore we get into a discussion of the progras, here are 
sose hints for downloading RLE graphics files from CompuServe 
using MTERM: 


After you have selected the file you wish to download, 
use ’READ’ rather than ’DOWNLOAD’ to capture it. Once you 
have sade this selection, you will usually be inforeed that 
your terainal does not support this graphic display (What do 
THEY know?) and asked if you wish to continue. Press ’y’ for 
yes but do not hit enter yet. Go to your buffer menu and be 
certain that your CONversion is set to ’NONE’ and that the 
buffer is eapty (bfused=0), Then a series of ’ENTER’s will 
get you back to the terainal aode and initiate the tranfer. 


RLE files are of varying lengths, depending on the 
asount of detail in the pictures, The longest I have seen, so 
far, is about 22K. The footer on an RLE file is Bell, 6, 
N,.” You will hear the ’Bell’ and transmission will cease. 60 
to your buffer aenu, close the buffer. Be SURE to aake a note 
of the length of the file (bufused). Return to tereinal aode 
and sign off CompuServe. 


lemediately return to BASIC and SAVE the buffer contents 
-- SAVE "name"CODE 26710, butused. 


Turn your computer off and back on (or RAND USR 0) and 
then re-LOAD the file -- LOAD “name"CODE 40000. It is 
essential that the CODE be loaded to the starting address 
40000, 


If you have followed these directions exactly, the 
addresses $0000, 40001, 40002 should now contain the nuabers 
13, 71, 72 respectively. These represent ’CR’ (carriage 
return), ’6’, ’N’. The correct header for an RLE file is ’ESC 
6 N’, so POKE 40000,27. 


DECODING FOF jTF/s 


bottom tac lines of the screen. 


C(BUT sa-L-O-W) 


-_—OSssS 


If you find the first three codes of the file are 
something different, all is not lost. You may just have 
gotten some text ahead of the file. PEEK around the file a 
little to see if you can find 7! and 72 in sequence. If you 
do, then POKE 27 to the address just below that of the 71 and 
the program should work -- it begins by searching the file 
for that 27, 71, 72 sequence. Once you have got this part 
right is is a good idea to SAVE the CODE before going on. 
Then you will be able to start over without spending the tiee 
and aoney on capturing the file again, should anything go 
wrong during the decoding process. 


The rest is easy. Just LOAD the RLE program and RUN it. 
You should begin to see the picture drawn line by line {and 
very slowly) on your screen. When the prograe reaches the 
You will see a proapt to 
reaind you of the options once the picture is completed. You 
will have plenty of time to aul! over your options while the 
computer creates the user defined graphics for the bottoe of 
the screen. | 
If you choose ’s’ to save the picture as a SCREENS -- a 
wise choice since it may have taken fifteen or twenty ainutes 
to draw the picture! -- be prepared to wait some more before 
starting your recorder as the computer prepares the file for 
SAVEing. | 
Re-LOAD the picture as follows: LOAD "picture’ CODE 
16384 : PAUSE 0. If you omit the PAUSE, the coaputer will 
overwrite the bottom two lines of the picture with the °OK’ 
report. If you wish to change the BORDER color, put the 
BORDER statement AFTER the LOAD statesent (If you try it the 
other way, you'll see why). Of course you aay insert a COPY 


Comsand in place of the pause to get a print-out of the 
picture. 


The best way to learn sore about this is just to 
experiment with it. At the July seeting I will put this 
program in the PUG library with sose picture files on the 
other side for you to experiment with if you wish. 

In his original notes on this prograa, John Ryan pointed 
out that it was compilable with the JRC or ZIP compilers, and 
that compiling it reduced the decoding tise for each picture 
to around 15 seconds! I doubt if that is true of this 
version. But I] have just received the new ’Tiaachine’ 
cospiler from Novelsoft in Toronto and believe it will be 
possible to substantially speed up the program with it. That 
will be a subject for a future article. 

In the seantiae, this cooperative effort by John Ryan 
and George Nockridge gives us a welcome new graphics aode for 
the 2068. 
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IMELINE 


1 REM PLE Picture prograa, !984...John Ryan 
. 2 REM Reseaber, load the sicture file starting at DEC 400 
3 REM 2640 orinter, screen 
y ec. Mockridge® 
4 INK 0: PAPER 7: BORDER 0: CLS : LET flag=0 
S DIM 1$116, 254) 
6 RESTORE ; FOR n=24500 10 24505: READ x: POKE n,x: NEXT 


color & save aodificaticns b 


n 
7 SATA 742,5, 192, 195,5, 10 
8 LET g$=" 
video & space 
9 FOR #=0 TO 21: PRINT AT #,0;q$: NEXT f 
10 LET A=4¢000 
{i LET 1=9 
i2 LET 72175 
60 LEY B=PCEK A 
79 If Be27 THEN 60 TO 90 
BO 60 TO &9 
®) LET A=A+i 
160 LET B=PEEK A 
110 IF B=?71 THEN 60 TO 130 
129 60 10 100 
130 LET A=A+! 
140 LET B=PEEK A 
{30 IF B=72 THEN 60 TO !70 
160 60 10 140 
170 LET A=Ati 
180 60 SUB 500 
190 LET A=A+! 
200 60 SUB &(0 
210 LET A=At! 
cil IF C= THEN 60 TO 180 
220 60 SUB 700 
230 60 10 180 
300 LET B=PEEK A 
Si¢ LET C=B-32 
220 IF C=0 THEN RETURN 
230 IF C<O THEN 60 TO 800 
340 LET Y=X+Cs IF x3255 THEN LET x=x-254: LET y=y-1 
300 RETURN 
600 LET B=PEEK A 
619 LET C=B-32 
620 IF C=0 THEN RETURN 
650 IF C<O THEN 60 TO 800 
640 RETURN 
706 LET D=0 
713 IF 255<x THEN LET Y=¥-t 
716 JF 255<% THEN LET X=X-256 
717 IF YO THEN LET 1S(ABS y,x+1)="0": IF flag=0 THEN LET 
flag=1: 60 SUB 740 
720 IF yo=0 THEN INVERSE 1: PLOT X,Y: INVERSE 0 


": REM inverse 


hJ 
ar 


PROMLET D=De1 
734 LET X=%t! ; 

74G 'F D=C THEN RETURN 
7E0 GB TO 710 
760 INK 9: PRINT @13AT 9,0; FLASH 13"WAIT."; FLASH O;AT 0,4 
s"At beep: copy neg. image” 

762 PRINT #1:AT 1,0:°0-7 new ink/paper(2) save screen": INK 
0 

763 RETURN 
B00 FOR x=1 TO ih: FOR y=i 72 254 
BO2 IF 1$tx,y)<2"0" THEN LET i€(x,y)="1" 

804 NEXT y 
206 NEXT x 

839 FOR z=o TE t 

Q35 -OR y=1 TO 224 STEP 8 

G27 FOR s=zt3+] TO 238+8 

$42 LET d$="BIN "+1$(x,y TO yt?) 

GéeC POKE USR "a"+x-1-(2$8), VAL d$ 

937 NEXT x 

870 PRINT @13AT z, (y-1)/8;"": REM graphic “a" 

B75 NEXT y 

874 NEXT z 

880 LET r$="0": LET s$="7": 60 SUB 960 

981 SEEP 5,10 

O82 LET r$=INKEY$: IF r$="c" OR r$="n" OR r$="q" OR (CODE r 
$>=48 AND CODE r$<=35) OR r$="s" THEN BEEP .5,10 

B92 IF r$="c" THEN RANDOMIZE USR 24500 

884 IF r$="n" THEN 60 SUB 990 

885 IF r$="g" THEN ‘STOP 

896 IF CODE r$>=48 AND CODE r$<=55 THEN 60 SUB 950 

e87 JF r§="s" THEN 60 SUB 970 

990 60 TO 882 

909 FOR n=14384 T0 22527: LET x=PEEK n: POKE n,255-x: NEXT 
n: RETURN 

910 STOP 

950 LET s$=INKEY$: IF (CODE s$>=48 AND CODE s$<=55) THEN 8 
EEP 5,10: 60 TO 960 

954 60 10 950 

960 DIM a${768) 

962 PRINT AT 0,03 OVER i; INK VAL r$;: PAPER VAL s$sa$(i TO 
704): PRINT @1;AT 0,9: QUER 1; INK VAL r$: PAPER VAL s$3a${ 
705 TO 734): PRINT #1:AT 1,0; OVER 1; INK VAL r$; PAPER VAL 

§$;a$(72? TO 748) 

964 PETURN 

970 DIM 1$f1): LET 2=37143 

97{ FOR n=22527 TO 16384 STEP -1 

972 IF x=35090 THEN INK 9: PRINT @£:AT 0,0; FLASH f: "WAIT. 
“; FLASH 0;" TO RELOAD-LOAD ’’picture’’": PRINT #1;AT 1,03" 
CODE 16384,6144: PAUSE 0 ": INK 9 

972 POKE x, PEEK nz LET x=x-1: NEXT ns BEEP .5,10 

975 SAVE “picture"CODE 21000,6144: CLS : LET x=31000: FOR n 
214384 10 22527: POKE n, PEEK x: LET x=xtis: NEXT nh 

976 LET r$="O": LET s$="7": 60 SUB 960: BEEP .5,10: RETURN 


999 CLEAR : SAVE "rle"; VERIFY "rie* 





A REPDRT FROH ONE OF OUR SO. : 
( ad | E | ; NJ E CALIF. TIMELINEZ SUBSCRIBERS. 


Dear George: 


Ren 

Hope things are going well for you and -the other PUG 
members. Interest seems to be increasing as far as our West Los 
Angeles ZX users group is concerned. The last two meetings had 
over 40 plus people in attendance, some as far south as San 
Diego! 

Ed Grey, has put together a local electronic newsletter on 
his Timex Exchange BBS called "The Timex Press". For those of 
you with modems and perhaps a long-distance service like GTE 
Sprint or PC-Pursuit can call and download the contents. His 
first issue was very good I think. The number of the Average 
Remote BBS (The Timex Exchange is a Sub-Board #4) is: 

(212) 325-0213, and instructions to access the newsletter are 
given in Section 4. 

Hope you can use this short article for your next 
newsletter. I’ve been able to convert the Spectrum program Art 
Studio to work with my AERCO centronics interface. If you don’t 
have this program, by all means get it! It is by far the best 
graphics program available for the Spectrum. 

Well, that’s it for now. Take care! 

~~ 


hte Mehr . 


Steve Ishii 


Aart Studio — AERCO CrI Conversion 


Imetructi ons 


Steve Ishii (3) In the iamediate mode, POKE the following 26 bytes into 


memory: 

Reter to Appendix 6 in the Users Manual for Instructions on 46000, 100 46010, 201 46020, 211 

Customizing the Art Studio Program with a User Defined Print 48001, 135 48011,219 48021, 127 

Driver. 48002, 110 46012, 127 48022, 60 
48003, 135 48013, 203 46023,211 

NOTE! Your printer must have bit-mapped graphics capability 48004, 111 48014, 1035 48024, 127 

in order to be able to fully utilize the print options. 48005, 155 48015,201 48025, 201 
48006, 114 48016, 211 

Aart Studio (And Extended Art Studio) can be converted to work 46007, 135 48017,127 

with the AERCO CPI with the following customization steps. 48008, 26 48018, 62 

The procedure for entering the modifications is as follows: 48007,0 48019,14 

(1) Load the ART STUDIO or EXTENDED ART STUDIO program as (4) Re-Start the proaram with RUN and enter 255 (user own 

usual. driver) when asked which interface is being used. 
(2) BREAK into the program once it has loaded. (5) The remaining steps are identical to the instructions 


in the ART STUDIO manual for customizing the program 
for the type of printer being used. The program wil) 
automatically save your customized print driver rout 


(6) To test your modifications, create some screen design 
(or load a previous saved screen) and pull down the 
PRINT menu. Select any of the options desired and 
cross your fingers' You should get beautiful screen 
copies of your artistic talents! 


ENJOY! 
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FROM THE PRICE CLUB 
W/L - ISMIE Be. 


Telephone Business 
Tips 


FROM JUNE 16,1956 
VWRLE STREET .! 


| The Top Manufacturers (By Instalied Units) 
| Tota] persona) computers (priced under $12,000) in U.S., through 1985 


GUTS SS TRLLED GRMRET PERCENT 

, fm) SA COMMENG Gummmemc = naa 

| Cammadore 3823.8 17.83% 173% 63% 8.4% ; 

IBM 8,365.8 15.69 79.4 10.9 97 In the slang of the telepnone in- 

; Apple 2,767.4 12.90 37.4 22.3 40.3 dustry, “ten triple-X dialing” means 

— ea = 8 63 | equal access to all long-distance phonc 
* 3 : Atari eis, 1110.2 6.18 Th 16.3 2 . d the “equa! acces 
| OL: A successor expeciec. | Texas Tostrument 1,009.8 4.71 16s 84 a08 companies under Cc ; qu S 

Binelair YE 750.8 R50 6.0 co "ie || system” For example, Iet’s assume you 

Bharp M2 2G 212 73 SLB live in San Francisco, AT&T is your 


CST launch 





long-distance carrier, and you are in the 
equal access system. You wish to call 
your dad in-New_York to wish him a 
Happy Father’s Day, but all the lines are 





A revival in the fortunes of the 











busy. What can you do? Redial using 













































| 
: Hewlett-Packard ss $59.0~S:*—“‘<O””~C«éia”*~<C SC 
f h = Gelecs SS CSSSSCSC‘i SSCS 
Kyocera’ - 269.5 12) 65.0 90.0 16.0 
Sinclair QL is being anticipated by Deel Egasc— eee, aC Yee Tae a five-digit number (lOXXX) which 
enthusiasts, and a new version is | Zea S17 004 my or ra identifies another long-distance carnicr. 
about to be launched. Cauvergent ____36T2 078 100.0 0.0 00 | For example, dialing 10700 plus your 
gee oe ees patel 12 ae | i604 B98 | dad’s number will route*your call 
in¢lair as an establishe 1858.2 0.63 €0.1 17.4 225 ; tem. The 
design, a company which makes | === a a — — aa TL Che eae Tee rate 
I a i = Fe 9 me aE and will appear on your AT&T bill. All 
LMk I itself. : ia 7 : 

. Oi he machine, to be called Thor, is | a  . “ 5i.; you need to do this is an equal access 
to be launched by CST at the PCW NEC 78 O36 OE wo ms System and the long-distance company 
Show in September, and will be a | jgieubihi Te os 700 900 00 codes. A few are listed in the box below. 
£550 box including Sony-style 3 '4in BS0 O27 29 71 30.0 
diskettes, instead of microdrives. Oubrscsia Dota Systems 65.6 0.26 S42 97 6.1 

It will be built around the original | "ce - 62 026 23.7 16.) 02 = 
L board, with a new box and __ | Televides 82.4 0.24 00.1 9.9 0.0 A“WSSinwendk c 
eee) and there will be a hard- Olivetti 49.8 0.23 7.1 14.6 6.3 | Boe hak = 
(et with 20 megabytes for | Serdete (Corena) 476 022 83.7 82 7.1 hone € ompany.. 
ind £1300. kere 414 022 100.0 00 an | 
| But it will probably not be sold | Dats General #3 621 5 $3.6 09 | | 
| through normal retail /distribution 9S SSS tS All NET 
| channels. Instead, it wilt Be offered ‘i = = — a < AT&T 
; mostly through mail order. NorthStar = aie ae BS “3 
| The rivalry of Atari’s ST, based Lanier 8.7 0.14 99.9 0.0 10.1 Express Tel 
on the same family of 68000 chips, =: Ome! 20.3 0.14 $5.1 18.9 L0 
doesn’t bother the company. . Mdamwasbice 20.1 0.14 86.5 19.6 49 ITT 
Guy Kewney Al ether 1,785.1 &1! . 
TOTAL 214469 —-180.00% ry wy 4S TMICI 
Primarily education and government "Makes the Tandy 100 Seurve: infoCorp, 1908 | 
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Timex has succeeded where Sinclair 
failed and has sold 800,000 US- 
style Sinclair Spectrums, known as 
the 2048 and 2068, and Timex 
FDD3000 disk drives to Poland. 
The deal, signed two weeks ago, 
was arranged by Takis Patrikarakos, 
managing director of London com- 
pany Micro Interface, who also acts 
as consultant for Timex Portugal. 
Patrikarakos confirmed that the 
deal was taking place. “That is all I 
can say at present,” he told Micro- 
Scope. “More details will be releas- 
ed by Timex in New York directly.” 
Patrikarakos started work two 
years ago trying to sell Timex’ disk 
drive into the Eastern bloc. But in 
April this year Sinclair granted 
Timex the right to market Spectrum 
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products in that part of the world to 
offset part of its debts to the 
manufacturer. 

This gave Patrikarakos the op- 
prtunity of selling complete systems 
into Poland. 


The 800,000 units will be sold 
over the next five years, going intial- 
ly into education, but almost cer- 
tainly through distributors into 
other markets. During this time the 
unnamed Polish organisation will 


acquire rights to manufacture in- 
creasingly large parts of the com- 
puters under a technology transfer 
agreement. 

Delivery of the machines is due to 
start in the summer. 
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JULY 

20 Peninsula User Group 1:00 
AN D SWAP MEET 
Peninsula Hospital 
1783 E1 Camino Real 
Burlingame 

24 East Bay User Group 7330 


West Branch Library 
11235 University Avenue 
Berkeley 


26& SAN FRANCISCO COMPUTER EXPO 
27 SAN FRANCISCO CONCOURSE 
Sth and BRANNAN STREETS 
SAN FRANCISCO 10 am - 3S pm 


2? Silicon Valley User Group 7:00 
Cupertino Library 
10400 Torre Avenue 
Cupertino 
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2 BAY AREA COMPUTER SWAP 
COW PALACE 10 am - 3 pm 


i7 Peninsula User Group 1:00 
26 Silicon Valley User Group 7:00 
28 East Bay User Group 7:30 


12-13-14 SILICON VALLEY ’*864 
Computer and 
Technology Exposition 
Santa Clara 
Convention Center 


2i Peninsula User Group 1:00 
“25 East Bay User Group 7:30 


30 Silicon Valley User Group 7:00 











EAST SAY 280 USER GROUP 
654 40th STREET 

RICHROND, CALIFORNIA 94605 
(413) 234-3310 


PRESIDENT: (VACANT) 


MEETINGS: FOURTH THURSBAY OF EACH MONTH, 7:30 P.H. 
VEST BRANCH LIBRARY 
1125 UNIVERSITY AVENUE, BERKELEY 







MAKE CHECK FOR DUES PAYABLE 10 "WOODY NcPHEETERS’. 










PUG PENINSULA USER GROUP 

sszsz 263 GATEWAY, NO. 107 
PACIFICA, CALIFORNIA 94044 

(413) 339-3198 





PRESIDENT: GEORGE HOCKRIDGE 












MEETINGS: THIRD SUNDAY OF EACH HONTH, 1:00 PLN, 
PENINSULA HOSPITAL 
1783 EL CAMINO REAL, SURLINGANE 






MAIL BUES TO "PAT NORRISSEY®, 2000 CRYSTAL SPRINGS ROAD, 
BLDG 21, APT 22, SAN BRUNO, CA 94066 


SVS TUG SILICON VALLEY SINCLAIR TECHNOLOGY USER GROUP 
6673 CLIFFORD DRIVE 

CUPERTINO, CALIFORRIA 95014 

(408) 233-3175 


PRESIDENT: RITA CARR, (408) 738-2888, X-4379 








MEETINGS: LAST TUESBAY OF EACH MONTH, 7:00 P.H. 
CUPERTINO LIBRARY — 
10400 TORRE AVENUE, CUPERTINO 


MAKE CHECK FOR BUES PAYABLE TO °SINCLINK®. 


THIS TIMELINEZ WENSLETTER IS A JOINT PUBLICATION OF THE THREE 
TINEX-SINCLAIR USER GROUPS IN THE SAN FRANCISCO SAY AREA. 


WEY NENBERS AND VISITORS ARE ALWAYS WELCOME. 
FOR FULL WENBERSHIP (WHICH INCLUDES PARTICIPATION IN GROUP 


MEETINGS, THE TINELINEZ WEUSLETTER, TAPE LIBRARY PRIVILEGES, 
AND SPECIAL EVENTS), SEND S15 ANNUAL DUES TO ONE OF THE ABOVE 
ADDRESSES WITH THE CHECK MABE PAYABLE AS INDICATED. 


FOR ONLY AN ANNUAL SUBSCRIPTION TO NEWSLETTER, SEND $10 CHECK 
PAYABLE TO: TIMELINEZ, P.O. BOX 1312, PACIFICA, CA. 94044 





IMELINE 


One af the more intriguing uses of this routine is as an 
added module in an aiready existing program. For example, 
here is av variation of Randy's orograe apeclied te an 
ANDRESS BOOK version of PRO/FILE. The first three tines 
get the phone number froma PRO/FILE’s E$ array, Records in 
PRO/FILE are PRINTed line by line frog the arrav &$ which 
is DiNensicned (15,32). The auto-dial routine aust know 
where to get the usher, My PRO/FILE Address Book is set 
up sc that the ohone numbers are always on line S$ of each 
record, This is why line 9010 of the ‘ollowing progras 
acdule scans E$(5). The aodule nay be sut anywhere within 
PRO/FILE that deesn’t interfere with orooram cneration. 
It certainly doesn’t have ta start at tine 90h, 
iat 
a 


iy 
ashles rer: 


The following is essential} 
program with some over: 
compatibility. 


Dration af the ahove 


sed o45r regents of 


Lines @000-8070 scan the ¢irst 12 scaces in FSi) ‘for 
numbers putting them inte B$ end ignoring any Aon-nusera 
characters, Line 8020 sets us an ON ER® 60 TO which 
aliows BREAK ts abort the dialisc process, sending the 


-progras directly to line 8100 aad thereby hanging up the 


phone. Line 8030 aise initializes the shone system. Lites 
BGS0-8070 accoenmlish the actual dialing. Line 2080 alerts 
the user to pick up the shone with a BEEP and a froapt. 
The PAUSE allows time to do this, then osens the sodes 
relay sc that when the phone is placed back on the hook, 
hanguo will occur. 


]1f dialing orabless are encountered, try lencthenine the 
PAUSES in lines BO+d and 8070. 


It is hoced that vow wil! be encouraged ta nat only fry 
the routines actiined atove, but to exneriment with ways 


of adding auto-dialieg ts vaur own prograas! 
8000 LET Bg="" 
BO10 FOR X=1 70 iS: TF COPE ES(5,43347 Suh 
CODE ES(S,XCS8 THEN LET Bgzisees§, X) Svea Tes REERET 
8020 NEXT X peepee es ee 
BOSO ON ERR £0 TH 9106: GUT 119,34: QUT 119.4: 
OUT 119,21: PAUSE 40 


B40702.1802 BATA “SCLKB407 
ose GUTS/SV (Group Using Tiaex Siaclair of Silicon Valley) .... 


BOS PRINT AT S5.8:FLASY {2 "DIALING "FLASH G:8$ Paine SAU SEDC Tal bay Sta hare Tineke Meee! 
8050 FOR ¥=1 TO LEN 88; LET 7=VAL B¢¢a): IF 2=0 THEN | By Bill Miller 408 253-3175 


LET 2=10 

8060 PAUSE 20 

8070 FOR Y=1 7) Z: FOR E=3 TO 4: OUT 119, E: PAUSE 1; 
NEXT E: OUT 119.4: QUT 129,2: NEXT Vs NEXT X 

G08) PRINT AT 15.0:;"DIALING COMPLETED--F ISK UP PHONE®: 
BEEP 7,14; PAUSE 100 crapt at cot ys te2e, GUTS/EV USvSTOR?) eeting iver 
8100 OUT 119.0: PAUSE 40! ON ERR RESET : 60 TO 1050 itain. This catalog features all. the. rig Mie 


Britain. This catalog features all the Sinclair and 
coaputers on it’s center pages. 


Welcose to new GUTS/SV aeaber Don Elliott. 


Radoslav Breznikar of Playa Del Rey, CA writes to ask where 
and to whoa to send his sick 152068. Does anyone know if the 
TIMEX Product Service Center, Building 19, Adses Field, Little 
Rock, Arkansas, 72203, will still repair any 1S2049 {even ene 
out of warranty) for 430? 


Upcoming GUTS/SV weetings (At Cupertiag Library- 7:00 P.H.) 
July 2%, Tuesday 
August 26, Tuesday 


Septeader 30, Tuesday 


LL A De ee NF a A rr 


A line eust be added eariier in SROVFILE tr send srcgrae 
control to tho avto-dial module, such as: 

165 TF ¥§="DiAL” THEN 60 TO e000 
This would allow the word “S{AL* to he typed as a command 
te initiate the routine. 
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